home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 09 Application Software / GC1.SDA / FILE SET MAKER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  443b  |  23 lines
  1. 10 REM FILE MAKER
  2. 20 REM WRITTEN BY KURT BRANDON
  3. 30 DN=PEEK(186):REM DRIVE ADDRESS
  4. 40 QT$=CHR$(34):OPEN15,DN,15
  5. 50 PRINT"":FORI=65TO90
  6. 60 OPEN8,DN,8,CHR$(I)+",L,"+CHR$(54)
  7. 70 PRINT"MAKING FILE: "QT$CHR$(I)QT$
  8. 80 RN=10:GOSUB170:GOSUB170
  9. 90 PRINT#8,CHR$(255);
  10. 100 RN=1:GOSUB170:GOSUB170
  11. 110 PRINT#8,RN
  12. 120 CLOSE8
  13. 130 NEXT:CLOSE15
  14. 140 END
  15. 150 :
  16. 160 REM\    POSITION & ERROR SUB
  17. 170 RH=INT(RN/256):RL=RN-(256*RH)
  18. 180 PRINT#15,"P"+CHR$(96+8)+CHR$(RL)+CHR$(RH)+CHR$(1)
  19. 190 INPUT#15,E,E$,AA,B
  20. 200 IF E=0ORE=50THENRETURN
  21. 210 PRINTE;E$;AA;B
  22. 220 CLOSE8:CLOSE15:END
  23.